CYCMR1.LSP[4,LMM] - www.SailDart.org

perm filename CYCMR1.LSP[4,LMM] blob sn#037481 filedate 1973-05-06 generic text, type T, neo UTF8


(DEFPROP CYCMR1FNS
 (CYCMR1FNS (AND LOADING
		 (ADVISE1 (QUOTE CATALOG3)
			  (QUOTE BEFORE)
			  (QUOTE (ARG1))
			  (QUOTE
			   (IF (EQUAL ARG1 (QUOTE (0. 3.)))
			       THEN
			       (RETURN (LIST T03))
			       ELSEIF
			       (EQUAL ARG1 (QUOTE (2. 2.)))
			       THEN
			       (RETURN T22)
			       ELSEIF
			       (EQUAL ARG1 (QUOTE (4. 1.)))
			       THEN
			       (RETURN T41)
			       ELSEIF
			       (EQUAL ARG1 (QUOTE (2. 1.)))
			       THEN
			       (RETURN (LIST T21))))))
	    T03
	    T21)
VALUE)

(AND LOADING
     (ADVISE1 (QUOTE CATALOG3)
	      (QUOTE BEFORE)
	      (QUOTE (ARG1))
	      (QUOTE
	       (IF (EQUAL ARG1 (QUOTE (0. 3.)))
		   THEN
		   (RETURN (LIST T03))
		   ELSEIF
		   (EQUAL ARG1 (QUOTE (2. 2.)))
		   THEN
		   (RETURN T22)
		   ELSEIF
		   (EQUAL ARG1 (QUOTE (4. 1.)))
		   THEN
		   (RETURN T41)
		   ELSEIF
		   (EQUAL ARG1 (QUOTE (2. 1.)))
		   THEN
		   (RETURN (LIST T21))))))

(DEFPROP T03
 (T03 STRUC ((CTE 1. (NIL) 2. 2. 3. 3.) (CTE 2. (NIL) 3. 3. 1. 1.) (CTE 3. (NIL) 1. 1. 2. 2.)) T03 3. NIL)
VALUE)

(DEFPROP T21
 (T21 STRUC ((CTE 1. (NIL) 2. 2. 3. 3.) (CTE 2. (NIL) 1. 1. 3.) (CTE 3. (NIL) 1. 1. 2.)) T21 3. NIL)
VALUE)